The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/mac/prime_CD/pb/PROFILE.DIR/00040_Script_#rollover scripts

Text File | 1997-07-29 | 32KB | 1,100 lines

global mousedown_cast, current_pm, nav_history, prev_frame, the_rolls, prof_rolls, sub_open, menusub_on, dopm, menusub_notgone, roll_scripts,vid_delay, stayinover, multi_sub,clearmenus,next_bsub, qtrep_return, iss_vid

on subwinpop obj_key
  set the itemdelimiter to ","
  set sub_open = 1
  pause
  unload

  global pop_locs,b_sub_key


  -- do popup for glossary entry
  if item 1 of obj_key = "glo" then
    put getprop(pop_locs,obj_key) into pop_rect
    set the itemdelimiter to ","
    continue
    gloss_pop(item  2 of obj_key, the left of pop_rect, the top of pop_rect)
    set vid_delay = FALSE
    exit
  end if

  -- do popup for video
  if item 1 of obj_key = "vid" then
    wrapwin(item 2 of obj_key)
    puppetsprite 26,true
    set the visible of sprite 26 = true
    set vidcast = "vid_"&item 2 of obj_key
    switchqt 26, the number of cast vidcast
    patchpal
    set bit_rect =  the rect of sprite 25
    spriteBox 26, the left of bit_rect + 21, the top of bit_rect + 20,the left of bit_rect + the width of member "bi_dummy" + 21,the top of bit_rect + the height of member "bi_dummy" +20
    puppettempo 30
    continue
    updatestage

    -- **** beginning of view in context code: line 17 used to keep track of context **** --
    -- set x = "prp_"&item 2 of obj_key
    --    put the framelabel into line 17 of field x
    exit
  end if

  -- do text subwin
  if item 1 of obj_key = "txt" then
    see_sprite([26,43],false)
    wrapwin("sub_text","text")

    set bit_rect = getaprop(pop_locs,"sub_text")
    puppetsprite 38,true
    set tfield = "txt_"&item 2 of obj_key
    put the text of field tfield into field "sub_win text II"
    set the castnum of sprite 38 = cast "sub_win text II"
    spriteBox 38, the right of bit_rect - 212, the top of bit_rect + 18, the right of bit_rect, the bottom of bit_rect

    set the rect of cast "sub_win text II" = rect(0,0,187,((the bottom of bit_rect - 28) - (the top of bit_rect + 18)))
    if the ink of sprite 38 <> 36 then set the ink of sprite 38 = 36
    set the visible of sprite 38 = true

    puppetsprite 40,true
    puppetsprite 41,true
    set the_center = (the right of bit_rect - the left of bit_rect) / 2

    spritebox 40, the left of bit_rect + the_center - 25, the bottom of bit_rect - 23,the left of bit_rect + the_center - 25 + the width of sprite 40, the bottom of bit_rect - 23 + the height of sprite 40
    spritebox 41, the left of bit_rect + the_center + 5, the bottom of bit_rect - 23, the left of bit_rect + the_center + 5 + the width of sprite 41, the bottom of bit_rect - 23 + the height of sprite 41
    see_sprite([40,41],true)
    see_sprite([26,43],false)
    set vid_delay = FALSE

    -- view in context code : preliminary --
    --    set x = "prp_"&item 2 of obj_key
    --    put the framelabel into line 17 of field x
    continue
    exit
  end if

  -- do popup for audio
  if the casttype of cast obj_key = #bitmap then
    unload
    wrapwin(obj_key)
    put "snd_"&obj_key into cname
    switchqt 26, the number of cast cname
    set the visible of sprite 26 = true
    set the volume of sprite 26 = 255
    set  the pausedAtStart of cast cname = true
    continue
    puppettempo 30
    updatestage
    if the ink of sprite 38 = 36 then set the ink of sprite 38 = 0
    exit
  end if




  if item 1 of obj_key = "msub" then
    set_puppets([26],true)
    set the visible of sprite 26 = true

    set psp = the rect of sprite 35
    set prew = the rect of sprite 43
    set psptop = getprop(pop_locs, item 2 of obj_key)
    spriteBox 35, the left of psp, psptop, the right of psp, psptop + the height of sprite 35
    spriteBox 43, the left of prew, psptop, the right of prew, psptop + the height of sprite 43

    set b_sub_key = item 2 of obj_key
    if the visible of sprite 38 = TRUE then fillbox(b_sub_key)

    subaudio("snd_"&item 2 of obj_key)
    updatestage

  end if

end

on dumpcast start, end, cl
  set  var = ""
  repeat with x = start to end
    put the name of member x of castlib cl & return after var
  end repeat
  --  put var
end

on vid_on
  set iss_vid = 1
end


on setqt mcast
  global mp, gsep
  put mcast&".mov" into fname
  set p to mp&"moovs"&gsep
  set mcast to "vid_"&mcast
  set the filename of member mcast of castlib "shared" to p&fname
  updatestage
end


on findcw pm
  vid_on
  set qtrep_return = string(current_pm)&"issw"

  set tomark = string(current_pm)&",CWv"

  pause

  if pm < 10 then
    setqt("0"&string(pm)&"CWV")
  else
    setqt(string(pm)&"CWV")
  end if

  preload frame marker(tomark)
  go to frame marker(tomark)
  continue

  set the controller of cast the castnum of sprite 22 to false
  handcurse the clickon
  qtstart 22
  qt_wait 22, tomark
  bail 22

end

on findnu pm
  vid_on
  set qtrep_return = string(current_pm)&"issw"
  set tomark = string(current_pm)&",NUv"

  pause

  if pm < 10 then
    setqt("0"&string(pm)&"NUV")
  else
    setqt(string(pm)&"NUV")
  end if

  preload frame marker(tomark)
  go to frame marker(tomark)

  continue

  set the controller of cast the castnum of sprite 22 to false
  handcurse the clickon
  qtstart 22
  qt_wait 22, tomark
  bail 22

end



on findnb pm
  vid_on
  set qtrep_return = string(current_pm)&"issw"


  set tomark = string(pm)&",NBv"

  pause

  if pm < 10 then
    setqt("0"&string(pm)&"NBV")
  else
    setqt(string(pm)&"NBV")
  end if


  preload frame marker(tomark)
  go to frame marker(tomark)
  continue

  set the controller of cast the castnum of sprite 22 to false
  handcurse the clickon
  qtstart 22
  qt_wait 22, tomark
  bail 22

end

on imp_load imp_frame
  if menusub_notgone = 0 then
    waitcursor the clickon
    if voidp(imp_frame) then
      put current_pm into item 1 of imp_sc
      put "im" into item 2 of imp_sc
    else
      set imp_sc = imp_frame
      set imp_it = TRUE
      set_puppets([24,29],false)
      puppetsprite 23, true
      see_sprite([1,2,4,9,10,11,12,13,15,16,17,18,19,20,21,22,23,24,25,27,28,29],TRUE)
    end if

    put the frame into prev_frame

    if soundbusy(1) then
      sound fadeOut 1, 30
    end if

    pause
    imp_loadqts(current_pm)
    continue

    puppettransition 01,4,6
    go to frame marker(string(imp_sc))
    --      set the controller of sprite 26 to false
    puppetsprite 26,false
    see_sprite([26],true)
    if the type of sprite 26 <> 0 then
      if the casttype of cast the castnum of sprite 26 = #digitalvideo then set the volume of sprite 26 = 255
    end if
    set_cursors(profimps_rolls)
    cursor 0
  end if

end

on imp_loadqts pm
  -- this handler sets the filenames for all the linked media in impressions.
  if the timer > 10 then
    case pm of
      1 : set flist to ["01im15v", "01im5s", "01im6s", "01im7s", "01im9s"]
      7 : set flist to ["07im10s", "07im11s", "07im12s", "07im14s", "07im1v", "07im2s", "07im3s", "07im4s", "07im6s", "07im7s", "07im9s"]
      10 : set flist to ["10im11s", "10im15s", "10im1s", "10im4s", "10im5s", "10im6s", "10im7s", "10im8s", "10im9s"]
      13 : set flist to ["13im10s", "13im11s", "13im12s", "13im14s", "13im15s", "13im1s", "13im2v", "13im4v", "13im5s", "13im5s", "13im7s", "13im8s"]
      14 : set flist to ["14im11s", "14im12s", "14im14s", "14im15s", "14im16s", "14im1s", "14im3v", "14im5v", "14im4s", "14im6s", "14im7s", "14im8s", "14im9s"]
      15 : set flist to ["15im10s", "15im11s", "15im12s", "15im13s", "15im14s", "15im15s", "15im16v", "15im1s", "15im2v", "15im3s", "15im4v", "15im5s", "15im6s", "15im7s", "15im8s", "15im9v"]
      18 : set flist to ["18im10s", "18im11s", "18im12s", "18im13s", "18im14s", "18im16s", "18im1s", "18im2v", "18im3s", "18im5s", "18im6s", "18im7s", "18im9v"]
    end case

    global gsep,mp

    repeat with x in flist
      set t to char length(x) of x
      case t of
        "v":
          set mdir to "moovs"
          set pref to "vid_"
        "s":
          set mdir to "snd"
          set pref to "snd_"
      end case

      set p to mp&mdir&gsep&x&".mov"
      set m to pref&x
      set the filename of member m to p
      preload member m of castlib "shared"
      --    set the pausedAtStart of member m of castlib "shared" to true
    end repeat
  end if

  starttimer
end


on bio_load next_bpage
  waitcursor the clickon
  if menusub_notgone = 0 then

    if clearmenus = TRUE then exit

    if voidp(next_bpage) then
      set next_bsub = ""
      put current_pm into item 1 of next_bsub
      put "bio" into item 2 of next_bsub
      put 1 into item 3 of next_bsub
    else
      set next_bsub = next_bpage
    end if

    --    put the frame into prev_frame


    getbiolist

    see_sprite([15],false)
    if soundbusy(1) then
      sound fadeOut 1, 30
    end if

    dobiorolls(item 3 of next_bsub) -- set the rolls for each bio screen
    global credit_roll
    put setbiocredit(current_pm) into credit_roll


    puppettransition 01,2,16
    go to frame marker(string(next_bsub))

    sound stop 1
    puppetsprite 23,false

    set_cursors(profbio_rolls)

    bio_sub_on
  end if
end

on subwin_load b_sub
  set the cursor of sprite 3 = 4
  subwinpop(b_sub)
  set the cursor of sprite 3 = 0
  global biosub_rolls
  set_cursors(biosub_rolls)
  if item 1 of b_sub <> "glo" and item 1 of b_sub <> "txt" then
    viddelay_play 26
    set the castnum of sprite 35 = cast "PAUSE.PCT"
    puppettempo 30
  end if
end


on over_loadqts id
  if the timer > 10 then
    global gsep, mp
    set tmp to id
    delete char 1 to 4 of tmp
    set fname to tmp&".mov"
    set p to mp&"moovs"&gsep&fname
    set the filename of member id of castlib "shared" to p
  end if
  starttimer
end


on over_load
  if menusub_notgone = 0 then
    waitcursor the clickon
    sound stop 1

    pause
    if current_pm < 10 then

      set vid = "vid_0"¤t_pm & "over"
      set pnum to string("0")¤t_pm
      over_loadqts(string(vid))
    else
      set vid = "vid_"¤t_pm & "over"
      over_loadqts(string(vid))
    end if

    --    over_loadqts(current_pm)

    set the controller of member vid to false
    preloadmember member vid
    put current_pm into item 1 of dest
    put "over" into item 2 of dest
    put the frame into prev_frame

    go to frame marker(string(dest))

    set_cursors(profover_rolls)

    set sub_open = 1
    set sub_over = 1

    continue

  end if
end

on gobackone
  if voidp(getlast(nav_history)) <> 1 then
    go to getlast(nav_history)
    deleteat nav_history getpos(nav_history,getlast(nav_history))
  else
    alert "There is nowhere to go back to."
  end if

end


on viddelay sp
  set vid_delay = TRUE
  if 1 = 2 then -- turn off temporarily
    set the movietime of sprite sp = 0
    set the movierate of sprite sp = 0
  end if
  set stayinover = TRUE
  starttimer
end

on viddelay_play sp
  if sub_open = TRUE then
    set the movierate of sprite sp = 1
    set vid_delay = FALSE
    global vidplay, vidstate,endplay
    set endplay = 1
    set vidplay = 1
    set vidstate = 1
    set stayinover = 0
    starttimer
  end if
end


on doimp inum
  set fl = current_pm&","&"im,"&inum

  go to string(fl)
end



on buildterm glossterm
  put glossterm
end

on more_arrow sp, acast
  set the castnum of sprite sp = cast acast
end

on subaudio sndname
  set the castnum of sprite 26 = cast sndname
  set the movietime of sprite 26 = 0
  set the movierate of sprite 26 = 1
  updatestage
end




on wrapwin obj_key, exception
  -- generic wrapwindow code

  set_puppets([25,27,28,29,30,31,32,33,34,35,36,37,43],true)

  see_sprite([25,27,28,29,30,31,32,33,34,35,36,37,43],true)

  if exception = "text" then
    see_sprite([26,35,36,43],false)
  end if

  global pop_locs

  set bit_rect = getaprop(pop_locs,obj_key)
  set the castnum of sprite 25 = the number of cast obj_key
  spritebox 25, the left of bit_rect, the top of bit_rect, the right of bit_rect, the bottom of bit_rect

  set list to [27,28,29,30,31,32,33,34,35,36,37,43]
  wrapmedia(obj_key,25,list,bit_rect)

  if exception <> "text" then
    more_arrow 36, "dropdown" -- this needs a direction handler
  end if

end

on moveWindow windName, left_pos, top_pos, bool
  set wr = the rect of windName
  set sl = the left of the rect of the stage
  set st = the top of the rect of the stage
  set tr = left_pos + (the right of wr - the left of wr)
  set tb = top_pos + (the bottom of wr - the top of wr)
  set the rect of windName = rect(sl + left_pos, st + top_pos, sl + tr, st + tb)

  set the windowType of windName to 2
  --  set the modal of windName to bool
  --  put windName&": "&the rect of windName into field "status"
  set the visible of windName to bool

end

on doglossterm obj_key
  set tmp = "glo_"&obj_key
  set prp = "prp_"&obj_key
  set the_term to line 2 of field prp
  tell window "textpop.dir" to dogloss tmp, the_term
end

on xglossit glossvar, title, gl, callback
  tell window "textpop.dir"
    put glossvar into field "display"
    set the scrolltop of member "display" to 0
    put title into field "term"
    if not callback then setscroll gl
  end tell
  if not callback then tell window "textpop.dir" to hilite line integer(gl) of field "terms"
end

on xdogloss the_line
  set gfield = item 1 of line integer(the_line) of field "glosindx"
  put field gfield of castlib "shared" into glossvar
  set title = line the_line of field "glosindx"
  delete item 1 of title
  set callback to true
  glossit glossvar, title, the_line, callback

end


on gloss_pop term, the_left, the_top
  cursor 4

  doglossterm(term)

  set tmp to "glo_"&term
  put "glossary: "& term
  movewindow window "textpop.dir", the_left, the_top, true

  set the visible of window "textpop.dir" = true
  tell window "textpop.dir"
    global linelist
    set tpos to getpos(linelist, tmp)
    put "" before line tpos of field "terms"
    if tpos > 0 then
      hilite line tpos of field "terms"
      set tpos to 0
    end if
    starttimer
  end tell
  global glossontop
  set glossontop to true
  cursor 0

end

on prof_stuff_off
  set the visible of sprite 5 = false
  set the visible of sprite 6 = false
  set the visible of sprite 7 = false
  set the visible of sprite 8 = false
end

on pop_menu
  go to "pmtop"
end

on leave_iss tc
  set curse to the cursor of sprite the clickon
  set the cursor of sprite the clickon to 4
  global imp_it,sub_open
  set sub_open = 0
  set imp_it = 0
  set_puppets([19,24,35,39],false)
  --  set the_rolls = prof_rolls
  global iss_vid
  set iss_vid = 0
  unload
  puppettransition 01,02,12
  go to prev_frame
  set the cursor of sprite the clickon to curse
  set_cursors(prof_rolls)
end

on leave_bio
  waitcursor the clickon
  addtohistory (the frame)
  delay 60
  if the casttype of cast the castnum of sprite 26 = #digitalvideo then
    set the movierate of sprite 26 = 0
    set the movietime of sprite 26 = 0
  end if

  set_puppets([25,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43],false)


  set sub_open = 0
  unload

  puppettransition 01,02,16
  go to prev_frame
  see_sprite([15,25,27,28],true)
  --  set the_rolls = prof_rolls
  set_cursors(prof_rolls)
  set the cursor of sprite the clickon = 0
end


on leave_over
  waitcursor the clickon
  addtohistory(the frame)
  delay 60
  set the movierate of sprite 3 = 0
  set the visible of sprite 20 = TRUE
  set_puppets([18,29,30,32,32,33,34,35,36,37,40],false)
  unload
  puppettransition 51,02,12
  go to prev_frame
  set the visible of sprite 3 = true
  set sub_open = 0
  set sub_over = 0
  set stayinover = 0
  set_cursors(prof_rolls)
  set the visible of sprite 20 = FALSE
  cursoroff(the clickon)
end

on shift_up
  set sp = the clickon
  set the locv of sprite sp = the locv of sprite sp - 1
  set the loch of sprite sp = the loch of sprite sp - 1
  updatestage
end

on shift_down_left
  set sp = the clickon
  set the locv of sprite sp = the locv of sprite the clickon + 1
  set the loch of sprite sp = the loch of sprite the clickon - 1
  updatestage
  repeat while the mousedown = TRUE
    nothing
  end repeat
  set the locv of sprite sp = the locv of sprite sp - 1
  set the loch of sprite sp = the loch of sprite sp + 1

end

on shift_down
  --  puppetsound "butt.aif"
  set the locv of sprite the clickon =   the locv of sprite the clickon + 1
  set the loch of sprite the clickon =   the loch of sprite the clickon + 1
  updatestage
  repeat while the mousedown = TRUE
    nothing
  end repeat
  shift_up
end

on prof_stuff_on

  repeat with x = 5 to 8
    set the visible of sprite x = true
    puppettransition 51,1,3,true
    go the frame
  end repeat

  --  dates_on
end

on bio_sub
  set mousedown_cast = "over close down"
  --  setcursor("biosub")
end

on bio_sub_on
  set_puppets([25,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42],true)
  --
  --  set the visible of sprite 47 = false
  --  hide_textpop
  if the type of the member of sprite 26 = #digitalvideo then
    set the movierate of sprite 26 = 0
  end if -- test added by kf prs 11/21/96
end

on bio_sub_off
  cursor 4
  if the castnum of sprite 26 <> 0 then
    if the casttype of cast the castnum of sprite 26 = #digitalvideo then
      set the movierate of sprite 26 = 0
      set the movietime of sprite 26 = 0
    end if
  end if
  box_sprites_off(38,39,40,41,42)
  --  see_sprite([38,39,40,41,42,43],false)
  set_puppets([23, 25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43],false) -- 23 added by KF PRS 11/25/96
  updatestage
  --  hide_textpop
  set sub_open = 0
  cursor 0
end

on set_puppets plist, bool
  if bool = "off" then
    set plist = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48]
    set bool = false
  end if
  repeat with x in plist
    puppetsprite x, bool
  end repeat
end




on bio_sub_hide
  global multi_sub, vidplay
  if the timer > 90 then

    if string(the windowlist) contains "textp" then
      if the visible of window "textpop.dir" = 1 then hide_textpop
    end if
    if not (sub_open = 0) then
      set sub_open = 0
      set vidplay = 0
      set the movierate of sprite 26 = 0
      set the movietime of sprite 26 = 0

      if the framelabel contains "bio" then
        set the cursor of sprite 18 to [member "hand", member "hand mask"]
        set the cursor of sprite 19 to [member "hand", member "hand mask"]
      end if
      set_puppets([25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43],false)

      if item 1 of the name of cast (the castnum of sprite 26) = "snd" then  set the visible of sprite 26 = true

      set the castnum of sprite 37 = cast "over close up"
      --      puppettransition 01, 02,16
      go the frame
    end if
  end if
end

on cursor_busy
  cursor 4
end

on do_menu
  set mousedown_cast =  "leaf down"
end

on do_prev
  set mousedown_cast = "sh_prev down"
end

on do_next
  set mousedown_cast =  "next down"
  -- alert "next page"
  --  put "next page" into field "status"

end

on handcursor
  cursor [the membernum of member "hand",the membernum of member "hand mask"]
end

on close_overview
  cursor_busy
  set mousedown_cast = "over close down"
end

on close_bio
  set mousedown_cast = "close down"
  handcursor

end

on bio_prev
  set mousedown_cast = "bio prev down"
  handcursor

end

on bio_next
  set mousedown_cast = "bio next down"
  handcursor
end

on go_to_era spritenum
  set mousedown_cast = "sh_era dim"
  --  put "era" into field "status"
end

on go_to_archive spritenum

  cursor_busy
  set mousedown_cast = "sh_archive dim"

  --  put "archive" into field "status"
end

on do_hilite sp, hilite_cast,not_hilite_cast
  set the castnum of sprite sp = hilite_cast

  updatestage
  repeat while rollover(sp)
    if the mousedown then exit repeat

    nothing
  end repeat
  set the castnum of sprite sp = not_hilite_cast
end

on pm_over spritenum
  set mousedown_cast = "sh_over down"
  --  do_hilite spritenum, cast "sh_over lit", cast "sh_over"

end

on tsr sp -- utility script
  --  put the rect of sprite sp
end

on pm_bio spritenum
  set mousedown_cast = "sh_bio down"
  --  do_hilite spritenum, cast "sh_bio lit", cast "sh_bio"
  --  put "pm_bio" into field "status"
end

on pm_imp spritenum
  set mousedown_cast = "sh_impressions down"
  --  do_hilite spritenum, cast "sh_impressions lit", cast "sh_impressions"
  --  put "pm_imp" into field "status"
end

on pm_search
  alert "search stuff goes here."
end

on pmquit
  alert "It was a very haaaaard decision to make....."
  quit
end



on menuprep_pm pm
  global clearmenus
  set current_pm = pm
  set clearmenus = TRUE
  set  menusub_notgone = 1
  if the colordepth > 8 then
    set pal = "pal,"&string(pm)
    puppetpalette pal
  end if
  --  hidemenuwindows
end
on findblack pm

end



on qtdisable sp
  if the membernum of sprite sp <> 0 then
    if the casttype of cast the castnum of sprite sp = #digitalvideo then
      set stayinover = 1
      set the movierate of sprite sp  = 0
      set the visible of sprite sp = FALSE
      updatestage
    end if
  end if
end

on qtenable sp, playtoggle

  set the visible of sprite sp = TRUE

  if not voidp(playtoggle) then
    set the movierate of sprite sp = playtoggle
    set the castnum of sprite 18 = cast "over play"
  end if

  updatestage
  set stayinover = 0
end








on pm_iss spritenum
  set mousedown_cast = "sh_issues down"
  --  do_hilite spritenum, cast "sh_issues lit", cast "sh_issues"
  --  put "pm_iss" into field "status"
end

on trackButton spriteNumber, altCast

  put the castNum of sprite spriteNumber into baseCast

  if spriteNumber > 0 then
    puppetsound 0
    repeat while soundbusy(0)
    end repeat
    --    puppetsound "butt.aif"
    repeat while the mouseDown
      if rollover(spriteNumber) then
        set the castNum of sprite spriteNumber to altCast
      else set the castNum of sprite spriteNumber to baseCast
      updateStage
    end repeat
    return rollover(spriteNumber)
  end if
  puppetsound 0
  repeat while soundbusy(1)
  end repeat
end


on dobiorolls biopage
  global bio_rolls,bio_pops,virtualrolloverlist,pop_locs
  put getat(bio_rolls, integer(biopage)) into virtualrolloverlist
  put getat(bio_pops,integer(biopage)) into pop_locs

end

on setbiopagetext
  global current_pm
  case current_pm of
    1 : set tmp = ["txt_1bio1t": rect(30, 132, 324, 430), "txt_1bio2t": rect(33, 97, 380, 374), "txt_1bio3t": rect(39, 67, 604, 271),"txt_1bio4t": rect(29, 129, 347, 435), "txt_1bio5t": rect(281, 87, 605, 369),"txt_1bio6t": rect(323, 93, 608, 396),"txt_1bio7t": rect(41, 84, 293, 414),"txt_1bio8t": rect(41, 71, 293, 443),"txt_1bio9t": rect(302, 65, 602, 425)]

    2 : set tmp = ["txt_2bio1t": rect(302,99,593,300), "txt_2bio2t": rect(344,72,602,414), "txt_2bio3t": rect(26,78,287,441), "txt_2bio4t": rect(25,101,267,421)]

    3: set tmp = ["txt_3bio1t": rect(354, 98, 609, 343), "txt_3bio2t": rect(23, 94, 260, 424), "txt_3bio3t": rect(357, 93, 609, 410), "txt_3bio4t": rect(356, 121, 599, 361)]

    4 :  set tmp = ["txt_4bio1t": rect(31,102,398,395), "txt_4bio2t": rect(22,52,609,233), "txt_4bio3t": rect(24,315,608,447)]

    5 : set tmp = ["txt_5bio1t": rect(308,101,581,359), "txt_5bio2t": rect(374,95,605,359), "txt_5bio3t": rect(317,86,605,395)]

    6 : set tmp = ["txt_6bio1t": rect(326,68,608,422), "txt_6bio2t": rect(26,80,308,422), "txt_6bio3t": rect(23,53,608,203)]

    7 : set tmp = ["txt_7bio1t": rect(357, 71, 602, 413), "txt_7bio2t": rect(35, 86, 302, 407), "txt_7bio3t": rect(326, 53, 608, 429), "txt_7bio4t": rect(23, 53, 292, 446), "txt_7bio5t": rect(308, 93, 602, 391), "txt_7bio6t": rect(313, 80, 604, 395), "txt_7bio7t": rect(24, 53, 277, 447), "txt_7bio8t": rect(324, 97, 601, 413)]

    8: set tmp = ["txt_8bio1t": rect(310,91,603,403), "txt_8bio2t": rect(41,125,315,365), "txt_8bio3t": rect(32,245,601,429), "txt_8bio4t": rect(335,54,609,430), "txt_8bio5t": rect(296,112,585,355), "txt_8bio6t": rect(326,79,609,394)]

    9 : set tmp = ["txt_9bio1t": rect(314,56,611,446), "txt_9bio2t": rect(23,80,314,425), "txt_9bio3t": rect(41,107,314,398), "txt_9bio4t": rect(308,107,608,395)]

    10 : set tmp = ["txt_10bio1t": rect(356,84,609,412), "txt_10bio2t": rect(305,88,604,315), "txt_10bio3t": rect(23, 119, 269, 410), "txt_10bio4t": rect(29, 116, 311, 395), "txt_10bio5t": rect(341, 71, 608, 422), "txt_10bio6t": rect(20, 50, 608, 221), "txt_10bio7t": rect(353, 53, 608, 446), "txt_10bio8t": rect(365, 95, 608, 416), "txt_10bio9t": rect(298,105,609,420)]

    11 : set tmp = ["txt_11bio1t": rect(329,98,608,335), "txt_11bio2t": rect(23,107,275,401), "txt_11bio3t": rect(23,53,275,446), "txt_11bio4t": rect(32,282,599,446)]

    12 : return ["txt_12bio1t" : rect(35,101,284,387),"txt_12bio2t" : rect(25,294,609,448),"txt_12bio3t" : rect(33,96,300,417), "txt_12bio4t" : rect(25,71,303,435)]

    13 : set tmp = ["txt_13bio1t": rect(332, 83, 608, 416), "txt_13bio2t": rect(23, 80, 308, 434), "txt_13bio3t": rect(23, 86, 326, 413), "txt_13bio4t": rect(23, 71, 266, 440), "txt_13bio5t": rect(281, 86, 608, 329), "txt_13bio6t": rect(23, 206, 608, 428), "txt_13bio7t": rect(23, 50, 284, 449), "txt_13bio8t": rect(23, 290, 611, 449), "txt_13bio9t": rect(212, 71, 608, 272)]

    14 : set tmp = ["txt_14bio1t": rect(293, 89, 602, 404), "txt_14bio2t": rect(311, 98, 608, 407), "txt_14bio3t": rect(335, 53, 608, 428), "txt_14bio4t": rect(338, 77, 608, 410), "txt_14bio5t": rect(362, 92, 608, 389), "txt_14bio6t": rect(215, 59, 437, 422), "txt_14bio7t": rect(26, 83, 311, 425), "txt_14bio8t": rect(23, 161, 320, 404)]

    15: set tmp = ["txt_15bio1t": rect(320, 98, 608, 377), "txt_15bio2t": rect(23, 269, 608, 446), "txt_15bio3t": rect(23, 302, 608, 446), "txt_15bio4t": rect(347, 83, 596, 413), "txt_15bio5t": rect(23, 83, 281, 431), "txt_15bio6t": rect(23, 302, 608, 446), "txt_15bio7t": rect(23, 293, 608, 446), "txt_15bio8t": rect(356, 89, 608, 389), "txt_15bio9t": rect(266, 74, 608, 410)]

    16: set tmp = ["txt_16bio1t": rect(29, 313, 604, 430), "txt_16bio2t": rect(361, 135, 609, 413), "txt_16bio3t": rect(23, 266, 608, 430), "txt_16bio4t": rect(360, 77, 609, 409)]

    17 : set tmp = ["txt_17bio1t": rect(332,95,608,389), "txt_17bio2t": rect(25,117,305,439), "txt_17bio3t": rect(44,263,608,428)]

    18: set tmp = ["txt_18bio1t": rect(25, 327, 610, 447), "txt_18bio2t": rect(25, 126, 289, 348), "txt_18bio3t": rect(25, 105, 295, 399), "txt_18bio4t": rect(376, 54, 607, 447), "txt_18bio5t": rect(352, 150, 607, 354), "txt_18bio6t": rect(334, 54, 607, 447), "txt_18bio7t": rect(22, 78, 310, 396)]

    19: set tmp = ["txt_19bio1t": rect(289,120,567,394),"txt_19bio2t": rect(24,283,611,450),"txt_19bio3t": rect(357,61,609,429),"txt_19bio4t": rect(353,62,609,427)]

    20: set tmp = ["txt_20bio1t": rect(23, 297, 609, 430), "txt_20bio2t": rect(23, 73, 304, 437), "txt_20bio3t": rect(352, 121, 609, 400), "txt_20bio4t": rect(23, 119, 301, 422), "txt_20bio5t": rect(308,70,608,414)]

  end case
  return tmp
end

on getbiolist
  global current_pm, bio_rolls, bio_pops, biotextprops

  put makebiorolls(current_pm) into bio_rolls
  put makebiopops(current_pm) into bio_pops

  set biotextprops = setbiopagetext()
  --  put bio_rolls
  --  put bio_pops
  -- pick a list (each list contains a separate list for each pages rollovers)



end

on domac_desktop
  openxlib "FinderSw"
  global hank
  set hank to FinderSwitcher(mnew)
  hank(mswitchtofinder)
  closexlib "FinderSw"
end

on unlink castst, castend
  if voidP(castLibName) then set castLibName = "internal"
  set reportList = [:]
  repeat with curCast =  castst to castend
    set theCastFileName = the filename of cast curCast
    set theCastName = the name of cast curCast
    if theCastFileName <> EMPTY then
      --      put curCast
      --      put theCastFileName
      importFileInto cast curcast, theCastFileName
      set the name of cast curcast = theCastName
      --      importFileInto member theCastName of castLib castLibName, theCastFileName
      --      setaprop reportList, the number of member theCastName of castLib
      --      castLibName, theCastFileName
    end if
  end repeat
  --  put "castmember: file imported"
  put reportList
end

on dopc_desktop
  openxlib "DLLGLUE.DLL"

  set closeDown = DLLGLUE(mNew, "USER.EXE", "PostMessage", "V", "WWWL")
  set getParent = DLLGLUE(mNew, "USER.EXE", "GetParent", "W", "W")

  set theParent = getParent(mCall,getParent(mWindowHandle))
  --put theParent
  set trueParent = getParent(mCall,theParent)

  --  put closeDown(mCall,trueParent,274,61472,0)

  getParent(mDispose)
  closeDown(mDispose)

  closexlib "DLLGLUE.DLL"
end

on fillbox obj_key
  if item 1 of obj_key = "vid" then
    set trans = "sub_" & item 2 of obj_key
    set prp to "prp_" & item 2 of obj_key
  else
    set trans = "sub_"&obj_key
    set prp = "prp_"&obj_key
  end if
  global clipcast
  global cliptitle
  set clipcast = trans
  set cliptitle to line 2 of field prp
  set the castnum of sprite 38 = cast trans

  set the rect of cast trans = rect(0,0, the width of sprite 25 - 22,94)
  set  the scrollTop of member trans = 0
end

on fillbox_old obj_key
  set the castnum of sprite 38 = cast "sub_win text"
  makepoptext(obj_key)

  set the rect of cast "sub_win text" = rect(0,0, the width of sprite 25 - 22,93)
end

on makepoptext obj_key
  global printtextcast,hbio,pcredit
  put current_pm & "," & "annotations" into ref_fld
  put current_pm & "," & "cap" into cap_fld
  repeat with x = 1 to the number of lines of field ref_fld
    set tmp to line x of field ref_fld
    if item 1 of obj_key = "vid" then
      set part2 = item 2 of obj_key
    else
      set part2 = obj_key
    end if
    if item 1 of tmp contains part2 then
      set hbio = item 2 of tmp
      set pcredit = line (integer(item 3 of tmp)) of field cap_fld
      delete item 1 of pcredit
      exit repeat
    end if
  end repeat

  if item 1 of obj_key = "vid" then
    set tscript = "tra_"&item 2 of obj_key
  else
    set tscript = "tra_"&obj_key
  end if

  if length(pcredit) < 1 then set pcredit = "none"

  if item 1 of obj_key = "vid" then
    put "" into pp
  else
    put  "PHOTO: "&pcredit&return&return into pp
  end if

  put pp&"Transcript:"&return&the text of cast tscript &return&return&"Commentator: "&return&field hbio into  field "sub_win text"

  set printtextcast = tscript


end